home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exampl_4 / modsound.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-14  |  922 b   |  29 lines
  1. Attribute VB_Name = "modSND"
  2. Option Explicit
  3.  
  4. '=======================
  5. 'Sound.
  6. '=======================
  7. Public Const SND_SYNC = &H0
  8. Public Const SND_ASYNC = &H1
  9. Public Const SND_NODEFAULT = &H2
  10. Public Const SND_MEMORY = &H4
  11. Public Const SND_LOOP = &H8
  12. Public Const SND_NOSTOP = &H10
  13.  
  14. 'Sound (SFX( *.WAV)).
  15. Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
  16.     (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  17.  
  18. Public Declare Function sndStopSound Lib "winmm.dll" Alias "sndPlaySoundA" _
  19.     (ByVal lpszNull As Long, ByVal uFlags As Long) As Long
  20.  
  21. 'Sound (MUSIC( *.MID)).
  22. Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
  23. (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
  24. ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  25.  
  26. '"<space><underscore>" allows for code to be broken
  27. 'up into multi lines...
  28.  
  29.